home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / make_io.com / DEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-06-04  |  4.9 KB  |  102 lines
  1. Uses fastttt5,iottt5,miscttt5,crt,dos;
  2.  
  3. Type
  4.     Item_Rec = record
  5.                     s:string;
  6.                     r:real;
  7.                     i:integer;
  8.                     b:byte;
  9.                     w:word;
  10.                     l:longint;
  11.                End;
  12. var   items:array[1..14] of Item_Rec;
  13.  
  14. Procedure Set_up_screen;
  15. Begin
  16. FastWrite(1,1,attr(Yellow,Red),'╔══════════════════════════════════════════════════════════════════════════════╗');
  17. FastWrite(1,2,attr(Yellow,Red),'║                                                                F-10 to EXIT  ║');
  18. FastWrite(1,3,attr(Yellow,Red),'║                       (c) 1990 by Richard N. Alger                           ║');
  19. FastWrite(1,4,attr(Yellow,Red),'╟──────────────────────────────────────────────────────────────────────────────╢');
  20. FastWrite(1,5,attr(Yellow,Red),'║                                                                              ║');
  21. FastWrite(1,6,attr(Yellow,Red),'║                                            Social Security No.               ║');
  22. FastWrite(1,7,attr(Yellow,Red),'║                                                                              ║');
  23. FastWrite(1,8,attr(Yellow,Red),'║                                                                              ║');
  24. FastWrite(1,9,attr(Yellow,Red),'║                                                                              ║');
  25. FastWrite(1,10,attr(Yellow,Red),'║ Address                            City                 State     Zip        ║');
  26. FastWrite(1,11,attr(Yellow,Red),'║                                                                              ║');
  27. FastWrite(1,12,attr(Yellow,Red),'║ Business Location                   Business Phone                           ║');
  28. FastWrite(1,13,attr(Yellow,Red),'║                                                                              ║');
  29. FastWrite(1,14,attr(Yellow,Red),'║ Organization Name                                                            ║');
  30. FastWrite(1,15,attr(Yellow,Red),'║                                                                              ║');
  31. FastWrite(1,16,attr(Yellow,Red),'║ Account Numbers - Travel:         Meals:         Entertainment:              ║');
  32. FastWrite(1,17,attr(Yellow,Red),'║                                                                              ║');
  33. FastWrite(1,18,attr(Yellow,Red),'║ Ledger Location:                          Department:                        ║');
  34. FastWrite(1,19,attr(Yellow,Red),'╠══════════════════════════════════════════════════════════════════════════════╣');
  35. FastWrite(1,20,attr(Yellow,Red),'║                                                                              ║');
  36. FastWrite(1,21,attr(Yellow,Red),'║                                                                              ║');
  37. FastWrite(1,22,attr(Yellow,Red),'║                                                                              ║');
  38. FastWrite(1,23,attr(Yellow,Red),'║                                                                              ║');
  39. FastWrite(1,24,attr(Yellow,Red),'╚══════════════════════════════════════════════════════════════════════════════╝');
  40. WriteAT(3,2,White,Red,'version 1.2');
  41. WriteAT(30,2,LightBlue,Red,'TRAVEL');
  42. WriteAT(37,2,LightRed+Blink,Red,'EXPENSE');
  43. WriteAT(45,2,LightBlue,Red,'REPORT');
  44. WriteAT(3,6,LightGreen,Red,'Employee Name');
  45. WriteAT(27,8,LightGreen,Red,'COMPLETE REMITTANCE ADDRESS');
  46. WriteAT(23,21,White,Red,'R. N. A. International Corporation');
  47. Create_Fields(14);
  48. Add_Field(1,14,2,14,2,18,6);
  49. Add_Field(2,1,3,1,3,67,6);
  50. Add_Field(3,2,4,2,4,12,10);
  51. Add_Field(4,3,5,3,5,44,10);
  52. Add_Field(5,4,6,4,6,66,10);
  53. Add_Field(6,5,7,5,7,74,10);
  54. Add_Field(7,6,8,6,8,22,12);
  55. Add_Field(8,7,9,7,9,55,12);
  56. Add_Field(9,8,10,8,10,22,14);
  57. Add_Field(10,9,11,9,11,30,16);
  58. Add_Field(11,10,12,10,12,45,16);
  59. Add_Field(12,11,13,11,13,68,16);
  60. Add_Field(13,12,14,12,14,21,18);
  61. Add_Field(14,13,1,13,1,58,18);
  62. String_field(1,items[1].s,'**************************');
  63. String_field(2,items[2].s,'###-##-####');
  64. String_field(3,items[3].s,'*************************');
  65. String_field(4,items[4].s,'**************');
  66. String_field(5,items[5].s,'!!');
  67. String_field(6,items[6].s,'#####');
  68. String_field(7,items[7].s,'****************');
  69. String_field(8,items[8].s,'(###)###-####');
  70. String_field(9,items[9].s,'********************************************************');
  71. String_field(10,items[10].s,'#####');
  72. String_field(11,items[11].s,'#####');
  73. String_field(12,items[12].s,'#####');
  74. String_field(13,items[13].s,'####');
  75. String_field(14,items[14].s,'####');
  76. Display_All_Fields;
  77. End;
  78.  
  79. Procedure Reset_Fields;
  80.  
  81. Var a:byte;
  82. Begin
  83.   For a:=1 to 14 do
  84.     Begin
  85.       Items[a].s:='';
  86.       Items[a].r:=0;
  87.       Items[a].i:=0;
  88.       Items[a].b:=0;
  89.       Items[a].w:=0;
  90.       Items[a].l:=0;
  91.     End;
  92. End;
  93.  
  94.  
  95. {++++++++++++++MAIN PROGRAM+++++++++++++++}
  96. Begin
  97.   Reset_fields;
  98.   Set_Up_Screen;
  99.   Process_input(1);
  100.  
  101. End.
  102.